home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 13 / Ozsi_13_199x_Tide_Side_A.d64 / textflash. basic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  29 lines
  1. 1 rem* another basic ute by tomz*
  2. 2 rem*so write down these numbers*
  3. 3 rem*as they enable you to control*
  4. 4 rem*this lil proggy and the no's are*
  5. 5 rem*poke251,l-byte(scrn start address
  6. 6 rem*poke252,hi-byte.................
  7. 7 rem*poke253,no of chars.............
  8. 8 rem*poke254,flash rate..............
  9. 9 rem*sys49152 to start/sys49196 to end
  10. 10 rem *********reverser m/c***********
  11. 20 for l=49152 to 49215:reada:pokel,a:d=d+a:next
  12. 30 if d<>8033 then print'data screwed":stop
  13. 40 [131]120,169,13,141,20,3,169,192,141,21,3,88,96,173,57,192
  14. 50 [131]197,254,208,18,169,255,141,57,192,160,0,177,251,73,128,145
  15. 60 [131]251,200,196,253,208,245,238,57,192,76,49,234,120,169,49,141
  16. 70 [131]20,3,169,234,141,21,3,88,96,0,31,168,255,8,21,74
  17. 80 [143]*********reverser code**********
  18. 90 [151]53280,0:[151]53281,0:[151]646,7
  19. 100 [153] [199](147);:[153] [163]12)"'ozsi-64'#13"
  20. 101 [151]2020,20:[151]2021,15:[151]2022,13:[151]2023,26
  21. 110 [151] 253,14:[143]*no of characters to reverse*
  22. 120 [151]254,15 :[143]*flash rate *
  23. 130 a[178]1035:[143]*screen address*
  24. 140 [151]251,a [175] 255:[143]*poke values for screen address*
  25. 150 [151]252,a[173]256
  26. 160 [158]49152:[143]* call m/c *
  27. 170 [161]a$:[139] a$[178]""[167] 170
  28. 180 [158]49196: [143] * the off switch *
  29.